home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00482.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  632 b   |  34 lines
  1. on exitFrame
  2.   global note, rr, s
  3.   set note to note + 1
  4.   if note > 1 then
  5.     set the visible of sprite 10 to 0
  6.   end if
  7.   put " " into field "display"
  8.   set the textSize of member "display" to 24
  9.   compose()
  10.   puppetSprite(1, 0)
  11.   updateStage()
  12.   if the lastClick > (15 * 60) then
  13.     set rr to random(3)
  14.     if rr = 1 then
  15.       dropsounds()
  16.     end if
  17.     if rr = 2 then
  18.       dropsounds()
  19.       set s to random(26)
  20.       do("sel" & s & EMPTY)
  21.     end if
  22.     if rr = 3 then
  23.       puppetSound(5, 0)
  24.       puppetSound(6, 0)
  25.       dropsounds()
  26.     end if
  27.     shrink1()
  28.     unLoadCast()
  29.     go("b")
  30.   else
  31.     go("a")
  32.   end if
  33. end
  34.